home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 December / CHIP Aralık 1996.iso / prog / backpack / demodata / misc / start.dxr / 00079_MoneySpinn.ls < prev    next >
Encoding:
Text File  |  1995-08-30  |  607 b   |  21 lines
  1. on exitFrame
  2.   global CASH, CURR_S, EXCF, TWNS, QN_D, J
  3.   set a to 0
  4.   set b to Infla(me, CASH / EXCF)
  5.   set R to getAt(CURR_S, getLast(TWNS))
  6.   set P to b / 50
  7.   puppetSound("Cash1")
  8.   updateStage()
  9.   repeat with n = 1 to 50
  10.     set a to a + P
  11.     set the text of field "Money" to string(integer(a)) && R
  12.   end repeat
  13.   set the text of field "Money" to string(integer(b)) && R
  14.   WaitH(J, 120)
  15.   set R to getAt(QN_D, getLast(TWNS))
  16.   set T to "Your trip begins in" && R & "."
  17.   set T to T && "Come back here after your trip round the world."
  18.   set the text of field "Goodbye_Text" to T
  19.   puppetSound(0)
  20. end
  21.